home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / amigae / ged-e2.0.lha / GED-E / ged_reqhelp.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-10-09  |  1.0 KB  |  36 lines
  1. /* $VER: 0.9, ©1994 BURGHARD Eric.                  */
  2. /*              Help on GoldED.guide                */
  3.  
  4. options results                             /* enable return codes     */
  5.                                             /* not started by GoldEd ? */
  6. if (left(address(), 6) ~= "GOLDED") then address 'GOLDED.1'
  7. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  8. if rc then exit
  9. options failat 6                            /* ignore warnings         */
  10. signal on syntax                            /* ensure clean exit       */
  11.  
  12. if exists("ENV:OldFunc2") then do
  13.   ok=open(readhandle,"ENV:OldFunc2","read")
  14.   oldfunc=readln(readhandle)
  15.   ok=close(readhandle)
  16. end
  17. else oldfunc=""
  18. 'REQUEST TITLE="GoldED Help request" BODY="Type searched name" BUTTON="Search|Cancel" STRING OLD="'oldfunc'" VAR OLDFUNC'
  19. if rc~==0 then do
  20.   'UNLOCK'
  21.   exit
  22. end
  23.  
  24. address command 'SetEnv OldFunc2 'result''
  25.  
  26. 'HELP TOPIC 'oldfunc''
  27.  
  28. 'UNLOCK'
  29. exit
  30.  
  31. SYNTAX:
  32. say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  33. 'UNLOCK'
  34. exit
  35.  
  36.